﻿Public Class FormSplash

    'Code de l'évènement paint (paint permet de dessiner une fenêtre)
    Private Sub FormSplash_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim intCenterX As Integer
        Dim intCenterY As Integer

        'récupère le centre de l'écran du device
        intCenterX = (System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width - My.Resources.Images.Ecran_intro.Width) / 2
        intCenterY = (System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height - My.Resources.Images.Ecran_intro.Height) / 2

        e.Graphics.DrawImage(My.Resources.Images.Ecran_intro, intCenterX, intCenterY)

    End Sub
End Class